home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / chrchpr4.arc / MSPMINAC.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  75 lines
  1. * Program MSPMINAC - Prints report of birthdays, new, changes, newly-inactives
  2. * "last month" = current month, as entered into DBASE
  3. * ACTVNAME = Full-church name, or S.S. class name
  4. * ANAME1='ALL' or SS:SC:MEMB code         * BNAME = SKIP criteria
  5. * BRTHDAYS (Y/N)?
  6. If ANAME1<>'ALL'
  7.   Find &ANAME1
  8.   If # = 0
  9.     Accept 'No records found with this S.S. code. Press <retn> ' to XX
  10.     RETURN
  11.   endif
  12. endif
  13. Store '                             ' to XXTRA
  14. Store $(date(),1,2) to inbmo
  15. Store inbmo+$(date(),7,2) to inmo
  16. Store T to beginng
  17. Store 2 to curline
  18. Set format to print
  19. @ 0,10 say actvname+curmonth+', 19'+$(date(),7,2)
  20. Do while .not. EOF
  21.   If .not. BEGINNG
  22.     Store trim(last:name)+', '+trim(first:name) to fnm
  23.     If len(fnm) > 20
  24.       Store $(fnm,1,20) to fnm
  25.     else
  26.       Store 20-len(fnm) to lenfnm
  27.       Store fnm+$(xxtra,1,lenfnm) to fnm
  28.     endif
  29.     Store trim(address)+', '+trim(city:state) to xaddress
  30.     If BRTHDAYS
  31.       Store $(birthdate,1,5)+', '+fnm to fnm
  32.     endif
  33.     If len(xaddress)>30
  34.       Store $(xaddress,1,30) to xaddress
  35.     endif
  36.     @ curline,0 say fnm+' h:'+home:phone+' '+xaddress+' '+zip
  37.     Store curline+1 to curline
  38.     If curline>60
  39.       EJECT
  40.       Store 3 to curline
  41.       @ 1,10 say actvname+curmonth+curyear
  42.     endif
  43.     SKIP
  44.   endif
  45.   Store F to BEGINNG
  46.   Do while .not. EOF .and. (* .or.  &BNAME)
  47.     SKIP
  48.   enddo
  49.   If ANAME1<>'ALL'
  50.     If SS:SC:MEMB<>ANAME1
  51.       GOTO BOTTOM
  52.       SKIP
  53.     endif
  54.   endif
  55. enddo
  56. If curline=2
  57.   @ curline,1 say 'No names found.'
  58. endif
  59. EJECT
  60. Set format to screen
  61. RETURN
  62.  "last month" = current month, as entered into DBASE
  63. * ACTVNAME = Full-church name, or S.S. class name
  64. * ANAME1='ALL' or SS:SC:MEMB code         * BNAME = SKIP criteria
  65. * BRTHDAYS (Y/N)?
  66. If ANAME1<>'ALL'
  67.   Find &ANAME1
  68.   If # = 0
  69.     Accept 'No records found with this S.S. code. Press <retn> ' to XX
  70.     RETURN
  71.   endif
  72. endif
  73. Store '                             ' to XXTRA
  74. Store $(date(),1,2) to inbmo
  75. Store inbmo+$(da